home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / perl / prlbkxmp.lha / apb / bigfloat < prev    next >
Text File  |  1991-01-08  |  800b  |  19 lines
  1. require "bigfloat.pl";
  2.  
  3. $FNUM = &fneg($FNUM);                # negation
  4. $FNUM = &fabs($FNUM);                # absolute value
  5. $CODE = &fcmp($FNUM, $FNUM);         # comparison, like <=>
  6. $FNUM = &fadd($FNUM, $FNUM);         # addition
  7. $FNUM = &fsub($FNUM, $FNUM);         # subtraction
  8. $FNUM = &fmul($FNUM, $FNUM);         # multiplication
  9. $FNUM = &fdiv($FNUM, $FNUM);         # division
  10. $FNUM = &fdiv($FNUM, $FNUM, $SCALE); # division to SCALE places
  11. $FNUM = &fround($FNUM, $SCALE);      # round to SCALE digits
  12. $FNUM = &ffround($FNUM, $SCALE);     # round to SCALEth place
  13. $FNUM = &fnorm($FNUM);               # normalization
  14. $FNUM = &fsqrt($FNUM);               # square root,
  15. $FNUM = &fsqrt($FNUM, $SCALE);       # square root, SCALE places
  16.  
  17. $bigfloat'rnd_mode = 'even';
  18. $bigfloat'div_scale = 40;
  19.